N 
— 
=) 


D 14 
*+F ILE®*1D**ALLOCPFN 


AAAAAA LL LL 000000 CCCCCCCC ~=PPPPPPPP FFFFFFFFFF NN NN 

AAAAAA LL LL 000000 CCCCCCCC ~=PPPPPPPP FFFFFFFFFF NN NN 
AB AA LL LL 00 00 CC PP PP FF NN NN 
AA AA LL LL 00 oo CC PP re fF NN NN 
ae AA LL LL 00 oo CC PP PP fF NNNN NN 
AA AA LL LL 00 oo CC PP PP. ve NNNN NN 
AA AA LL LL 00 oo cc PPPPPPPP FFFFFFFF NN NN NN 
AA AA LL LL 00 oo cc PPPPPPPP FFFFFFFF NN NN NN 
AAAAAAAAAA LL LL 00 oo CC PP FF NN NNNN 
AAAAAAAAAA LL LL 00 oo CC PP FF NN NNNN 
AA AA LL LL 00 oo cc PP FF NN NN eves 
AA LL LL 00 oo cc PP FF NN NN cece 
AA AA LLLLLLLLLE LLELLLLLLLL 000000 cccccccc PP FF NN NN cece 
AA AA LLLLLLLLLE LLLLLLELLL 000000 cccccccc =~PP FF NN NN eces 


LLLLLLLLLL III! 
LLLLLLLLLL III] 


ALLOCPFN 

Table of contents 
ti} 40 
uf 
(4) 177 
(6) gg 
(7) 91 
(8) 445 
(9) 490 
(10) 582 
(11) 736 


14 
- PFN LIST MANIPULATING ROUTINES . 15-SEP-1984 23:49:54 VAX/VMS Macro v04-00 


HISTORY ; DETAILED 
DECLARATIONS — 
ALLOCPFN = ALLOCATE A PAGE FROM THE FREE PAGE LIST 
DELCONPFN = DELETE CONTENTS OF PFN 
REMPFN = REMOVE A PFN FROM LIST 
RLPFNSAVPTE = RELEASE PFN SAVING PAGE TABLE ENTRY 
DELPFNLST = DELETE PFN FROM PFN LIST 

PFN = RELEASE PFN TO FREE OR MODIFY LIST 
NSPFN = INSERT PFN AT HEAD OR TAIL OF PFN LIST 
ALLOCONTIG = Allocate N Physically Contiguous Pages 
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¥b4-000 ~3Eb=| $82 3:49:88 USYS SRCJALLOCPFN.MAR; 1 1 


»TITL F AL ocr - PFN LIST MANIPULATING ROUTINES 
-IDENT ‘V04-000' 


=MPARARAARARAAAAARAAALA SALAS AAA L ALAA A LALA E ARRAS AREER SAAR REAR TEESE EERE A EES SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
tae EQUIPHENT CORPORATION, MAYNARD. MASSACHUSETTS. 


GHT 
OFTWARE IS FURN td UNDER A LICENSE AND MAY BE USED AND COPIED 
N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
USION tebe B pith NOTICE. THIS SOFT ARE OR ANY OTHER 

E OT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
R PER SON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


-* 2 
*® 2 
-* “« 
-* a 
-* @ 
*® we 
'* ra 
*® x 
*® x 
*® ® 
;* TRANSFERRED. . 
** t 
‘ff ® 
*® ® 
*® ® 
*® ® 
**® ® 
*® ® 
*® ® 
*® ® 
*® ® 


I 
$ 
I 
$ 
s 


Ooo PF 
xzVvore 


=3=Oo2zZzxrt rf 


$s 
Y 
L 
l 
E 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oORPORAT IO OT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  * eaacae OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 


RARER AAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARAEAAAARAAEEES 


OOCOCCOOCOOoOOoOoOooOooo 


z 


FACILITY: EXECUTIVE, MEMORY MANAGEMENT SUBROUTINES 


ABSTRACT: ALLOCPFN CONTAINS THE ROUTINES FOR MANIPULATING PFN LISTS 
THE KNOWLEDGE OF THE FORMAT AND LOCATION OF THESE LISTS Is RESTRICTED 
TO THIS MODULE, WRTMFYPAG, AND SWAPPER. SINCE SHRCNT 
OVERLAP FLINK AND BLINK, THOSE WORD REFERENCES CAN ALSO NBE We OUGH 
OF AS WORD WIDTH DEPENDENCIES FOR THE P 


ENVIRONMENT: THESE ROUTINES MUST ALL BE CALLED AT THE SYNCH IPL!!! 


DOOOOOOOOOOOOOOOOSOOOOOOOOOOOOOOOoO 


SoOoOSCOSSOOSOOSOSOSOOSOSOOSOSOOSOOSOSOoOOoSS 


SOOOOOOOOOOOSOSOSoSO 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


0 -SBTTL HISTORY ; DETAILED 
00% AUTHOR: PETER K. LIPMAN » CREATION DATE: 14-SEP-76 
6 MODIFIED BY: 
v03-005 KPLO002 ter Lieberwirth 22-F eb-1984 
Fix bugs in v03-004" specifically, preserve R1, restore 


saned registers correctly in error case, correct loop 
counter for zero-based loop. 


v03-004 KPLOO01 r Lieberwirth 6-Feb-1984 
Add MAGSALLOCONTIG™ * routine to allocate phys ical Ly-cont tquéus 
memory. 

v03-003 waco002 Wayne Cardoza 13-Apr-1983 


Leave type bit set for bad pages. 


PDT BS BB EE EB EWN WII IOP POPP 2 2 2 SS 
NA AL WR 0 OD NAME WIN 9 OD NOUN EIN 9 OOD NIA NE WWIN = O OOD NA UE WI - OOONOUN SE wit 


Se Se Se Ge Se Ge Se Ge Be Ge, Ge Ge Ge Ge Ge Se 


ai" 


€ 14 
ING ROUTINES 19360-1388 $3349 :28 yexivas acro V04-00 


SYS.SRCJALLOCPFN.MAR; 1 


v03-002 wMc0001 Hayne Cardoza 05-Apr-1983 
RELPFN will check for bad pages. 


V03-001 LJK0140 Lawrence J. Kenah 4-Mar-1982 
Change insertion and removal routines to take into account 
the fact that array elements for PFN 0 may not exist. 
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v04~000 DECLARATIONS MBrSEE TSBs Baidgres PeNMeS Mace yOu-00. e 3) 
: ; .SBTTL DECLARATIONS 
8 ; INCLUDE FILES: 
he SOPDEF : Define opcode equivalences 
71 SPFNDEF : PEN DATA BASE DEFINITIONS 
ce SPRIDEF : PRIORITY INCREMENT CLASS DEFINITIONS 
7 SPTEDEF + PAGE TABLE ENTRY DEFINITIONS 
74 SVADEF : VIRTUAL ADDRESS FIELD DEFINITIONS 
0 £3 SWOHDEF + WAIT QUEUE HEADER DEFINITIONS 
0 i ; EXTERNAL SYMBOLS: 
79 ; 
09 9 + MACROS: 
00 é : 
99 33 EQUATED SYMBOLS: 
$00 5: 
9000 e? : OWN STORAGE: 
00000000 88 f .PSECT $$$210,LONG 
909 30 : PFN LISTS INDEXED BY LIST IDENTIFIER, FREE, MODIFIED, AND BAD PAGE LISTS 
800 3 PFNSAL_HEAD: : 
00000000 00000000 00000000 0000 9 .LONG 0,0 sHEAD OF PFN LISTS 
00000004 99¢ 34 nal Bits Bs oe =PFNSAL_HEAD+4 ADDRESS OF MODIFIED PAGE LIST HEAD 
00000000 00000000 00000000 Got %6 LONG 0,0,0 sTAIL OF PFN LISTS 
00000000 00000000 000000 i 3 ep AcOUNT: : COUNT oof PFN LIST ENTRIES 
9000001 09 4 36 SCHSGL _FRECENT==PFNSAL COUNT FREE P 
000001C 4 100 CHSGL_MF YCNT==PFNSAL_COUNT+4 ;MOD tes PAGE COUNT 
0000 8 2 : 1 PFNSGL -PUYPSEN NT:: i AVAILABLE PHYSICAL PAGE COUNT 
0000 U ° 
00 8 1 2 PFNSAL_HILIMIT:: 
40000000 00000019 400 9 if 104 LONG 1830,25,1@30 :"LIST TOO FULL'’ THRESHOLD 
0000 0034 105 SCHSGL_FREEREQ==PFNSAL_HILIMIT REQUIRED FREE PAGES BY SWAPPER 
00341 6 SCHSGL MF YLIM==PFNSAL_AIL cy T+4 :MODIFIED PAGE LIST HILIMIT 
0034 107 PFNSAL_LOLIMIT?: a 
FFFFFFFF QO00000A A 0034 108 .LONG 10,10,=1 :“LIST NEARLY EMPTY'’ THRESHOLD 
040 109 SCHSGL_FREELIM==PFNSAL_LOLIMIT 
8 110 SCHSGL “MF YLOL IM==PFNSAL _LOLIMIT+4 
111 SCHSGL -AFYLIMSO: sTHE MODIFIED PAGE WRITER RESTORES 
00000019 11 .LONG 25 [THIS VALUE TO SCHSGL_MFYLIM AFTER 
11 [WRITING ALL THE MODIFIED PAGES 
4 114 SCHSGL_MFYLOSV:: [THE MODIFIED PAGE WRITER RESTORES 
0000000a 4 115 .LONG 10 [THIS VALUE TO SCHSGL_MFYLOLIM AFTER 
116 SWRITING ALL THE MODIFIED PAGES. 
113 : SESSA AAAATAAAARAARAARARAAAAARAAARAAAAAAAARARAAARAAAEARARAEAAEEE 
i : eeneeeeereercere THIS ENTIRE MODULE MUST BE RESIDENT e2eeeeneeneeeeeeere 
00000 122 ° .PSECT SMMGCOD 
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MANIPULATING ROUTIN 15-SEP-1984 citer Macro v04-00 Pa 
ear een mie 7 83:39 39: é YOYS SRCIALLOCPFN.MAR: 1 = (3) 


v0o=000" DECLAR 


$ 

123 ; 

1 4 s PARRA AAAAAAASALASARELERASESEARE RARER ERA R ERE REE EE SESE SEER E TE EERE EERE 
125 ; 


v0o600" auLGtebiST RUBERTANGAADYTEMES ye vnee TECRESSISES GHSSB'ES UNCUMECHRETECHPABRy,, POO 


+ -SBTTL ALLOCPFN = ALLOCATE A PAGE FROM THE FREE PAGE LIST 
¢ FUNCTIONAL DESCRIPTION: 


ALLOCATE A PFN FROM THE FRONT OF THE FREE LIST, RELEASING IT 
CONTENTS IF ANY. IPL MUST BE AT SYNCH OR HIGHER.” NveAS.NG ITS 


: ; CALLING SEQUENCE: 

: BSBW MMGSALLOCPFN 

; INPUT PARAMETERS: 

IPL MUST BE AT SYNCH OR HIGHER 
; IMPLICIT INPUTS: 

; NONE 


é- 
oO 


; ; OUTPUT PARAMETERS: 

~ BR PFN Reeepg ee S$ ALLOCATED OR NEGATIVE IF NONE AVAILABLE 
: PENSAW- “REFENT RO] = 0 

; IMPLICIT OUTPUTS: 


; IF PFN HAD PREVIOUS CONTENTS (PFNSAL_PTECRO] NEQ 0) 
; THE PREVIOUS PTE IS TRANSFORMED FROM ‘'TRANSITION'’ TO ITS BACKUP ADDRESS. 


; COMPLETION CODES: 
NONE 


OOOQOOCOoCoOooooooooooooo 


—-OGOoOCooooooQoooooooooooscoooooooooooooo: 


—"P PPP SF OVINVOOCOOCOOOCOOCSOOOoooooooo 


: SIDE EFFECTS: 
NONE 


DOOOOOSOSOSOSOSOSOSOSOOSCSOS: 


ee ee ee ee ee ee ee ee ee ee ae ee ae ae ae ee ee ee ee ee ee ee ee ee 
SINNED AA AAA AAD TUT BS BB BB BB BE AAAI IIA 


Se ae ie agg sat get ong Raitt ite Naps Re ie ie at Be a emp 


0 
0 
0 le, 
0 ASSUME PFNSC_FREPAGLST EQ 0 
52 v4 0 CLRL : FREE PAGE LIST ID 
009 0 6 BSBW § MMGSREMPFNH :GET A PAGE FROM THE HEAD 
0150 iF FI BBC #31,R0,20$ ‘BRANCH IF GOT 
5 00 RSB SOTHERWISE RETURN, NONE AVAILABLE 
; : MUST NOW RELEASE ANY PREVIOUS CONTENTS 
20S: 
0000'pF40 85 TSTW @W*PFNSAW_REFCNTCRO] = ;REF COUNT OK? 
04 BEQL | MMGSDELCORPFN :1T MUST BE ZERO AT THIS POINT 
0 BUG. CHECK FREEPAGREF ,FATAL [FREE PAGE REFERENCE COUNT NONZERO 


eh ti 


mo 
=—cC 
mr 


A 


4 
m 
= 
ao 
o 
2 
or 
o- 
ou 
zz 
=a) 
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ENTS OF PEN Mar eee 1 8Be Baidores FeNCMes Macre yon OO ve 8, 
.SBTTL DELCONPFN = DELETE CONTENTS OF PFN 
: FUNCTIONAL DESCRIPTION: 


DELCONPFN DELETES THE CONTENTS OF A PFN. WHEN A PAGE IS 
PLACED ON THE FREE PAGE LIST, IT NORMALLY RETAINS ITS CONTENTS SO THAT 
IT MAY BE FAULTED OFF THE FREE LIST. WHEN THE PAGE IS FINALLY ABOUT 
TO BE REUSED, THEN ITS CONTENTS MUST BE DELETED. THIS BASICALLY INVOLVES 
aor ane bee BACKUP ADDRESS IN THE ORIGINAL PTE SO THAT IT NO LONGER POINTS 


CALLING SEQUENCE: 
BSBW MMGSDELCONPFN 
INPUT PARAMETERS: 
RO = PFN 
PFNSAW_REFCNTCROJ = 0 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 


RO PRESERVED 
IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


Pe Ge Ge Ge Ge Ge Se Ge Ge Se Se Se Se Se Ge Ge Se Se Se Se Se Ge Ge Se Se Se Sse Sete Sete Vets tete 


HMGSDELCONPEN: : 
53 0000'DF40 MOVL 


rt: aw*PFNSAL_PTECRO),R3 4 PTE OF CURRENT CONTENTS 
51 63 7BA00000 ef 
51 


BEQL ANCH IF CONTENTS ALREADY RELEA ED 
BICLS #°C<PTESM_VALID ! PTESM_ fet i PTESM_TYPO ! PTESM_FFN>, (R3),R1 
CMP 0,R1 SITION PAGE E WiTH SAME PENS 
BNEG 20$ <TR ANCH IF INCONSISTENT 


; NOW RESTORE BACKUP ADR TO PTE OF ORIGINAL OWNER OF THE PAGE 
. BICL #*C<PTESM_PROT ! FNSR GOL a (R3), R1 ;R1 = PROT AND OWNER 


BICL3 #*C<PFNSM“BAK ! PFN 
au*PFNSAL ~BAKCRO] Re SBACK ING STORE ADDRESS 
BBSC = #PFNSV_GBCBAK,Re,.10$ © CLR GBLBAK BRANCH IF WAS SET 
BBSS #PTESV-TYP1,Re, 10 SET THE HIGH ORDER TYPE BIT 
FOR SECTION OR PAGE FILE 
10$: BISL3 R1,R2,(R3) ;STORE THE BACKUP ADR 


ASSUME PFNSC_PROCESS EQ 9 
ASSUME PFNSC"SYSTEM EQ 
ASSUME PFNSCIGLOBAL £0 2 


NOME AN = OOO NAME WN 0 ODNOAUE WIN (OOO NAOULS WN OVOOnN me 


_ 


OGDOOGOOOCOOOOSOSOSOOOOOSOSOSOOSOSOSOOOOOOOOOOOOOOOOOSoOO 


GOOOCCOCOCOSOSCSOSSSOSOSSOOooooooooooooooooooooooooo 


PEPE EF FAAP MND)  es T 
tt tt Ft FF MOOODOOCOOCOCOOVOWOOOOO OOOO CODODDo VN mas 


—9TO—o 
M—DWWO 


51 63 S867FFFFF 8F CB 
FFQOOOO0 8F CB 
52 *DF4 


re alae 


DOD OVS DD DD DVD SPSS «| oe 


WO OONOuUlSWwiny—O0° 


WIAAIPONOPONNENNONNONY 


ALLOCPEN - PFN LIST MANIPULATING ROUTINES 15*SEP=1984 23:49: AX/VMS Macro V04-00 p 7 
vo e500 DELCONPFN = DELETE CONTENTS OF PFN Breer o8e Baidores Lene eS fcr ulK OO wants 
4 4 ASSUME PFNSC_GBLWRT £0 3 
4 5 ASSUME PFNSC"PPGTBL EQ 4 
49 6 ASSUME PFNSC-GPGTBL £0 
03 00 EF 0049 EXTZV #PFNSV_PAGTYP,#PFNSS_PAGTYP,= ;GET PAGE TYPE TO DISPATCH ON 
51 0000" DESO at 5 aw*PFNSAB_TYPELROJ,RT 
5 40 CASE —-R1, <= 
51341 40$,- :PROCESS PAGE 
51 4g 50$.- SSYSTEM PAGE 
51 4 408, ~ ‘GLOBAL READ ONLY 
51 (Oke 40$,- ‘GLOBAL WRITABL 
91 45 308.- ‘PROCESS PAGE TABLE 
1 46 $- ‘GLOBAL PAGE TABLE 
051 4 > 
43 48 ; 
061 49 ; ERROR IN DELCONPFN 
0061 31 20S: BUG_CHECK DELCONPFN,FATAL : 
0069 38 : PROCESS PAGE TABLE PAGE 
51 53 O000°CF C3 0065 255 $0$:  SUBL3  W*SWPSGL_BALSPT,R3,R1 ;BYTE OFFSET INTO SPT FOR PROCESS HEADERS 
51 O000'CF C6 0068 256 DIVL  WSWP$GL~BSLOTS?2,Ri1 [PROCESS HEADER INDEX 
51° 51 FE BF 78 9070 57 ASHL #=2,R1,R ‘FOR BYTE COUNT 
FF88' 30 007 5a BSBW  MMGSDECPHDREF1 SDECREMENT PROCESS HEADER REF CNT 
03 11 0078 39 BRB 50$ 
007A 61 : PROCESS OR GLOBAL PAGE, MUST REDUCE PAGE TABLE REFERENCE COUNT 
FF83" 30 007A es bos:  BSBW MMGSDECPTREF :COUNT ONE LESS REF FOR PAGE TABLE 
0070 $5 t REINITIALIZE THE PFN DATA BASE NOW 
0000'DF40 04 007D $66 S0$: CLRL © aW*PFNSAL_PTECRO] ;ZERO THE PTE POINTER (PAGE EMPTY) 
0000'DF40 D4 0082 268 60$:  CLRL  aW*PFNSAL~BA ROJ [ZERO THE BACKING STORE ADDRESS 
0000'DF40 B4 008 369 CLRW @W*PFNSAW-SWPVBNCRO] § ;ZERO THE SWAP FILE VBN 
0000'DF40 94 O008C 270 CLRB © aWSPFNSABSTATELRO] ‘ZERO THE PFN STATE 
0000'DF40 94 0091 371 CLRB © aW*PFNSABTYPECROJ :ZERO THE PFN TYPE 
0096 73 : seeee THE FOLLOWING ASSUMPTIONS ARE MADE HERE 
0096 275: PFNSAW_WSLXCROJ _ IS THE SAME AS PFNSAW_BLINK(RO) 
4943 6 : PFNSAW_SHRCNTCROJ] IS THE SAME AS PFNSAW_FLINKCROJ 
096 £8 : BOTH OF THE ABOVE ARE ZEROED BY MMGSREMPFN OR MMGSREMPFNH 
05 0096 $80 . RSB 
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MS Mac . 
REMPFN = REMOVE A PFN FROM LIST ~3Ep-1984 03:39:55 Leys. SRCIALLOCPFNGRA dene 


LocP FN.MAR; 1 (6) 


8 ~SBTTL REMPFN = REMOVE A PFN FROM LIST 

9 p++ 

3 ; FUNCTIONAL DESCRIPTION: 

09 REMOVE A PFN FROM THE SPECIFIED PFN LIST. THIS ROUTINE ACCEPTS 
09 A_PFN AND A PFN LIST IDENTIFIER AND REMOVES THE PFN FROM THE LIST. 

83 IT MUST BE CALLED AT IPL GREATER OR EQUAL TO SYNCH. 

8 CALLING SEQUENCE: 

4 BSBW MMGSREMPF NH REMOVE PFN FROM HEAD OF LIST 
03 BSBW MMGSREMPFN sREMOVE SPECIFIED PFN FROM LIST 


INPUT PARAMETERS: 


RO = PFN TO REMOVE (UNLESS REMPFNH) 
R2 = PFN LIST IDENTIFIER 

IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 


RO = PFN REMOVED 
OR NEGATIVE IF REMPFNH FROM EMPTY LIST 


IMPLICIT OUTPUTS: 
THE LIST HEAD, TAIL AND COUNT FOR THE SPECIFIED LIST IS UPDATED 
staat CODES: 
SIDE gp te 
ey Aba ARE WRITTEN IN SUCH A WAY THAT THE FIRST ELEMENT 


gt A 
IN EACH A NEED NOT CORRESPOND TO PFN 0. THAT IS, THERE NEED NOT BE 
ARRAY ELEMENTS CORRESPONDING TO PFN 0. 


Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge SF Se Ge Se Se Sets Se SseSe Sse Sete Ss 


SOoCoooooooococo 


SOOO OCOCOCOOooooooo So SOOooooQoQoooooooooo 


ee 


PPP PP PP OOOCOOOOOOOOowvoowvowvowvovowvovnovowvowvowvowvowJowvowowvon9o 
COCSOOPIPIPIPIPIPIIIN 22 89 NNN NNN SSNS 


DOONAN WIN @§ OOO NAME WIN 9 OOO NAME WN SO OOO NAME WW 0 OOONA UE WO OONOULW 


SOSOGOCOSOOSOOOSOOSOOOOOOOSOOOOSOOSOOSOOSOSOSOSOSOSOOSOOOOCOOOSDOOOOOOOOOOOO 


AANA NIAAA HIGEPSPOPINIPYIDINININID 2 9  ("QOOCOKOOOOCOOCWOOOOOOOOOO 


50 0000" CF 42 DO OVL  W*PFNSAL_HEADCR2],RO :RO = PFN FROM HEAD OF LIST 
if BNEQ § MMGSREMPFN EMOVE THE P 
0 »D DECL RO RETURW NEGATIVE IF EMPTY 
05 RSB 
RO = PFN TO REMOVE, R2 = LIST IDENTIFIER 
AMGSREMPEN: : 
PFN_REFERENCE 
MOVZWL <aW®PFENSAx. FLINKCROJ.R1>.- :R1 = NEXT PEN 
A LONG_OPCODE=MOVL 
A TRAGE=SYS NONPAGED 
A MOVZWL <aW™PFNSAx BLINKCROJ.R3>.- :R3 = PREVIOUS PFN 
A LONG_OPCODE=MOVL,- 


ee 


10 
10 
OOOC'CF42 53 
OE 
QOOO'CF42 51 
FO 


09 0018'CF42 


0034°CF42 0018°CF42 
06 
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WWWNNNNWINANA WANNA W NWA AW ANAAWNAWWAAAAAANNAANA A AAANAAN 


©0909 09 96909 69 C9 G0 SI IN NNN SSID DDD DD TTT BE 
WONAUNS WIN 9 OO NOUS WN — OO ONOAU EWN 0 ODNAU EWN OOONOUS WhO 7" 


Sooooooooooooo 


SOOO oSooOOOoOoOSoSoSoo 
THA HHH HMM mre 


COCO PMIPMIMNININOG 


LIS “SEP=1984 


ae =SYS_NONPAGED 


BEQL 
REFERENCE 
MOVW Pris au" PENSAX FLINKCR3]>, 
CONGO =MOVL 
rt RAGESSYS ORONPAGED 
BNEQ 15$ 


34 cr o V04-00 
YeYS FN 


MS Macr 
«SRC JALLOCPFN.MAR; 1 


BRANCH IF HEAD OF LIST 


-FLINKCPREV] = NEXT 
a 6 


s;BRANCH IF NOT TAIL 


; IF NEXT = 0 THEN PFN BEING REMOVED WAS THE TAIL OF THE LIST 


TAIL = PREVIOUS 
JOIN COMMON CODE 


5$: MOVL R3,W*PFNSAL_TAILCR2] 


HEAD = NEXT 
;BRANCH IF ALSO TAIL 


sBLINKCNEXT] = PREVIOUS 


BRB 20§ 
; IF PREVIOUS = 0 THEN PFN BEING REMOVED WAS HEAD OF THE LIST 
10$:  MOVL  R1,W*PFNSAL_HEADCR2] 
BEQL 46 5$ 
15$: PFN_REFERENCE 
MOVW  <R3> au PENSAx BLINKCR1I>,~ 
LONG _OPCODE=MOV 


TRAGESSYS ONPAGED 
SOBGTR W*PFNSAL_COUNTCR2],30$ 


20S: 


Bist R1,R3 
BUG_CHECK PFNLISTCNT,FATAL 


PFN_REFERENCE 
CLRW <aw*PFNSAx FLINKCROI>, - 


30$: 


PFN_REFERENCE 
CLRW <aw™PFNSAx BLINKCROJ>, - 
LONG OP CODES CURL 


MAGE=SYS_N 
BGTR 
: THIS LIST IS BELOW ITS THRESHOLD SIZE, 
; CASE —R2, <= 
WAKE SWAPPER= 
40$: 
RSB 


a 6 


;ONE LESS PFN, BRANCH IF NOT EMPTY 
CHECK CONSISTENCY OF THE COUNT AND LIST HEAD OF EMPTY LIST 

BOTH HEAD AND TAIL 0? 

BRANCH IF OK 

: INCONSISTENT PFN LIST COUNT 


ZERO THE NEW PAGE'S FLINK 


ZERO THE NEW PAGE'S BLINK 


I AGED 
CMPL W*PFNSAL SCOUNTER DS, W*°PFNSAL LOL IMITCR2] :NEARLY EMPTY? 
40$ ; BRANCH 


INFORM THE INTERESTED PARTY 


sFREE LIST - INFORM SWAPPER 


vOo~600" RLPENS 
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FN SAVING PAGE TA 5=SEP=1 SYS. SRCJALLOCPFN.MAR; 1 
A .SBTTL RLPFNSAVPTE = RELEASE PFN SAVING PAGE TABLE ENTRY 

> FUNCTIONAL DESCRIPTION: 

THIS ROUTINE RE 
THE’ PTE A DRESS 
FOR A GLOBAL DZ 
PAGE. ONE RAKE 
CALLING SEQUENCE: 
BSBW MMGSRLPFNSAVPTE 


INPUT PARAMETERS: 


Rg SYSTEM VIRTUAL ADDRESS OF PAGE TABLE ENTRY 
; IMPLICIT INPUTS: 
NONE 
; OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: S 
NONE 


LEA 
ED 
RO 
$I 


MMGSRLPFNSAVPTE:: 
0000'DF40 D4 CLR aw*PFNSAL_PTECRO ZNO PTE BACK POINTER 
0000"DF 49 B4 CNTCRO] =; AND No REFERENCES 

1 0 NSC A ACTIVE ! PENSM_DELCO 
40 aw*PFNSAB_STATECRO) cht ” FF MODIFY, TURN ON DELCON 


THE FOLLOWING ASSUMES THAT THE PTE IS A GLOBAL PTE THAT MUST HAVE 
oe cscnittiae TAKEN AWAY EVEN THOUGH ITS CONTENTS ARE NOT TO 


BSBu MMGSDECPTREF : COUNT one wat PAGE TABLE REFERENCE 
BRB MMGSRELPFN ;RELEASE T 
> AND RETURN TO CALLER 


a th 3 3 BQOODOOOOOOCOOCOOOOCOCOSCOOSOOOOSCOOCOOOOCSOOSOOOOCOOSOoOO Yr 
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Pe et tt ot ot ot at MAMA AAUAUAUMAARAAAMAMAHHMUM MMM eee 


SOOCOCOCOCOOCCOCOCOOOOCOCOCOCOOOOOOCOOOCOOSOOO OOOO OCOOOOOOOOOOOOOOOoO 
LPP PAWN AAAI IIPIPPIPINIPENININD) 2 2 9 SS 2 QOOTOTOOOOCOCOOWOOOOOOOO 


Ng RO ROUTINE sn 1g=$E= 138% $349 '2¢ AX/VMS Macro V04-00 Page 19) 
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FROM PFN LIST ~SEerTBRe Gaidaiee PONCVES Bacre YOE-00 ~~ 


is .SBTTL DELPFNLST - DELETE PFN FROM PFN LIST 
: FUNCTIONAL DESCRIPTION: 


THIS ROUTINE REMOVES THE PFN FROM THE SPECIFIED LIST 
SETS DELCON AND RELEASES THE PAGE. 


CALLING SEQUENCE: 
BSBW MMGSDELPFNLST 
INPUT PARAMETERS: 


v- 
Tie 
zz 


RO = PFN 
R2 = LIST IDENTIFIER 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
NONE 


MMGSDELPFNLST:: 
BSBB MMGSREMP EMOVE PFN FROM SPEC 
BISB =s_ #@PFNSM NDELCON, @W*PFNSAB_ iTATECRO) © 7JAM "DELET 


: FALL THROUGH TO MMGSRELPFN 


oe 
0000'DF40 10 88 


COC OMMMMMMNMMMMMMMMMMMMMMMMmMmMmMmMmMmMmmMmmMmmMmmMmmmmmmmmnmh a 
Fy af af at at at at UMMM ARARMAAAMMAUUM UMM e aaa nnmmnnnMnmeeee 
DNASE WN CO DONA EWN HO OONAUEWN HO ODNAMNEWNRHOODNAU me 


ALLOCPEN PEN LIST 
v 600 RELPFN = RE 


D 15 
NIPULATING ROUTINES 1 a et 4 ‘ AX/VMS Macro V04-00 Pa 1 
E PFN TO FREE OR MODIFY L 5=-SEP-1 198 83: $3: 33 YOYS SRCTALLOCPFN MAR: 1 ” 18) 


e ~SBTTL RELPFN = RELEASE PFN TO FREE OR MODIFY LIST 
; FUNCTIONAL DESCRIPTION: 


THIS ROUTINE RELEASES THE SPECIF 
; FREE PAGE LIST ACCORDING TO THE S 


CALLING SEQUENCE: 
; BSBW MMGSRELPFN 
; INPUT PARAMETERS: 
; RO = PFN, REFCNT=0 
; IMPLICIT INPUTS: 

NONE 


ome 


; OUTPUT PARAMETERS: 
RO PRESEVED 
; IMPLICIT OUTPUTS: 
; NONE 


; COMPLETION CODES: 

; NONE 

; SIDE EFFECTS: 
NONE 


MMGSRELPEN: : 
MOVL 


53 0000°DF40 aw*PFNSAL_PTECROJ,R3 4 Be cates 


D 
08 1 vi PAGE 1S EMPTY 
02 A3. 8440 BF OB BITW  #<PTESM_VALID ! PTESM_ tye i ore >a-16,2(R3) 
2. BNEQ NOT TRANS{ TION PAGE 
52. 0000'DF4O0 01 07 EF R2 :R2 = MODIFY BIT 
16 12 ;BRANCH IF PAGE MODIFIED 


: PAGE NOT MODIFIED R2 = 0 = LIST ID FOR FREE PAGE LIST 
: SEE IF SUPPOSED TO DELETE THE CONTENTS OF THE PAGE 


BEB 4 E1 BBC #PFNSV_DELCON, aW“PFNSAB “FrPEERGH 988 0$ : BRANCH IF RETAIN CONTENTS 
"DEG £0 BBS #PFNSV~BADPAG, aW“PFNSAB_TYPELR T ON BAD PAGE LIST 
BSBW MMGSDECCONPFN DELETE nos CONTENTS 
ASSUME PFNSC_FREPAGLST EQ 0 
52 D4 CLRL OR SFREE PAGE LIST ID 
59 (1 BSB MMGSINSPFNH [PUT PAGE ON FRONT OF FREE LIST 


MOVL au*PFNSAL_BAKCROJ,R1 GET BACKING STORE CELL 
BSBB MMGSDAL CBAKSTORE SFREE THE BACKING STORE PAGE 


tty MMAGSINSPFNT ;PUT PAGE AT END OF LIST IN R2 


51 Q0000°DF4O0 OD 
28 


0088 3 


MAN 
LEA 
4 
4 
4 
4 
4 
4 
4 
4 
4 
5 
5 
P] 
; 
5 
5 
5 
P) 
P) 
5 


9TH PDP Ih Fh NI QOOOFH DFE PAA A AAA AAA AAA AAA AAA AA AAA AA AAA AAA AS 


? 
8 
9 
0 
1 
5 
4 
5 
6 
7? 
8 
9 
0 
1 
5 
: 
; 10S: AY 1 Nail MODIFY WN aU*PENSABSTATEERON R 
3 
1 
5 
& 
5 
; 
9 
; 
§ 
4 
5 
6 


DAE BBB EB EB BANNAN 9 9 Ss Ss Ss SS Ss SS Ss 2 SS 


le ae ee we eee ww wl wl al wlan alo lol alow lawl ala lal ala lel alolololaleleleloleloleleleololeloleleloleloleloleleololoio) 


- PFN LIST MANIPULATI 
RELPFN = RELEASE PFN 


vinta 3 


(ae a at a 8 se tS a ss ss st ns 


OOO 0009090009 SII NNN SNS SNIP AAA AAI 
DA MOD LMI DOOOOOOAOUNS & NN NWI MOOS Pororornry 


DOONAN E WN $$ OC OD NAME WH OOONOUES Wi" OOO 


DN NINA AA AAA AAA MMIII 
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NG ROUTINES 15-SEP=1 AX/VMS Macro V04-C3 Page 13 AS 
Ng FREE OR MODIFY L = SEP=1 1984 83; $3; 34 YOYS. SRCJALLOCPFN.MAR; 1 ve v8 
; PAGE IS NOT A TRANSITION PAGE, IF IT'S NOT VALID, THAT'S A FATAL ERROR. 
: IF VALID, THEN FOLD MODIFY BACK TO PFN DATA, SHUT OFF VALID AND MODIFY, 
; AND CONTINUE WITH RELEASING THE PAGE. 
60$:  BGTR 80% sBRANCH IF PTE NOT VALID 
BBCC #PTESV_MODIFY, (R3),70$ DIFY, BRANCH IF WAS CLEAR 
BISB  #PEN $H- “MODIFY Y,aW*PENSAB_ STATECRO] :RECORD IT IN PFN DATA 
708: BBSC #PTESVVALID,(R3),10$ ~:CLEAR VALID AND BRANCH (IT WAS SET) 
80$:  BUG_CHECK PE ENTMNUAL FATAL PAGE NOT IN TRANSITION OR VALID 
PAGE IS MARKED BAD SO IT WILL BE PUT ON BAD PAGE LIST 
0s: BSBW MMGSDELCONPFN DELET F PAGE CONTENTS 
BISB #PFNSM -BADPAG. aU“PENSAB_ fYPEERO] :RESET THE BIT TO HELP TRACK THEM 


MOVL #PFNSC"BADPAGLST ,R2 
Bes MMGSINSPENT PUT IT AT END OF LIST 


: $ SUBROUTINE TO FREE VBN'S TO PAGING FILES. 


: RI, Ra DESTROYED Selad ee, 


MMGSDALCBAKSTORE: : 
TSTW au*PFNSAW _SWPVBNCRO] ; CHECK eH SWAP FILE BACKING STORE 
BNEG 50$ ;BRANCH IF YES, PAGE MUST KEEP BAK ADDR 
EXTV #PENSV_BAK,#PFNSS_BAK,R1,R3 BACKING STORE VBN VS PROCESS PTE 


BLEQ !BRANCH IF NOT, NO BLOCK TO RELEASE 
PUSHR ‘#*M<RO,R2> [SAVE PFN MODIFY LIST DESTINATION 
MOVL :SET UP VBN FOR MMGSDALCPAGF IL 

ASHL  #=PFENSV PGELX. R1,R3 iSET PAGING FILE TO RELEASE BLOCK TO 
BSBW § MMGSDALCPAGF FREE THE BLOCK 

POPR #*M< RE PFN, MODIFY LIST INDEX 


RO,R2> 
508 pict #PFNSM_BAK ,aW*PFNSAL oaxt 2c CLEAR OUT BACKING STORE ADDRESS 


E15 
ALLOCPEN ~ PEN LIST MANIPULATING ROUTINES 15SEP=1984 23:49:54 VAX/VMS Macro V04-00 Pose 14 
vo e500 INSPEN'= INSERT PEN AT HEAD OR TAIL OF P SaSePo1oB4 OS:dores Lene tec HRere MOK OO. 9 10) 


~SBTTL INSPFN = INSERT PFN AT HEAD OR TAIL OF PFN LIST 


+ 


+ 
FUNCTIONAL DESCRIPTION: 


NSERT PFN ON SPECIFIED PFN LIST, SETTING THE LOCATION FIELD 

IN PFNSAB_STATE TO REFLECT THE LIST IDENTIFIER. IPL MUST BE AT SYNCH 

OR IF THE LIST WAS EMPTY BEFORE THE INSERT SPECIAL ACTION 

IS TAKEN TO INFORM ANY PROCESS THAT MIGHT BE WAITING. 

CALLING SEQUENCE: 
BSBw MMGSDALLOCPFN sDEALLOCATE PFN, PUT AT TAIL OF FREE LIST 
BSBW MMGSINSPFNT ;INSERT PFN AT TAIL OF LIST SPECIFIED IN R2 
BSBW MMGSINSPFNH : INSERT PFN AT HEAD OF LIST SPECIFIED IN R2 


INPUT PARAMETERS: 


RO = PFN TO I 
R2 = PFN LIST 


IMPLICIT INPUTS: 
NONE 


NSERT_IN 
IDENTIF 


m— 
“ 
“ 
= 
> 
a 
ong 
Oo 
a 
v 
~ 
2 
~ 


E 
DENT 
OUTPUT PARAMETERS: 

RO PRESERVED 
IMPLICIT OUTPUTS: 

PFN LIST HEAD, TAIL AND COUNT ARE UPDATED 
COMPLETION CODES: 

NONE 


SIDE EFFECTS: 


If THE LIST at EMPTY eres THE INSERT, THEN IF THE LIST IS 
THE rose PAGE LIST, ANYONE WAITING FOR FREE PAGES IS AWAKENED. IF 
THE LIST IS THE MODIFIED PAGE LIST, THE MODIFIED PAGE WRITER iS INFORMED. 


TKESE ROUTINES ARE WRITTEN IN SUCH A WAY THAT THE FIRST ELEMENT 
IN EACH ARRAY NEED NOT CORRESPOND TO PFN 0. THAT IS, THERE NEED NOT BE 
ARRAY ELEMENTS CORRESPONDING TO PFN 0. 


CGOOOCOCOCOOSOSSOOSOSOOCOOCOOOOOSCOCOOOOOOOOOOOOOOO 


Bai wtiaddtaadaiaiatatiatuaiaadat abate aii atatabatiatiadbad ad ated adadad adadadadab ad adadabadadabaBadadababadadadadadad 
WWWW > FS F OWODOODOOOO OOOO OOOODOODOOVOODOVODODOVOOVOVOOOOVOOOOVOODOOOOOOOOOO 
WMIUIVINIS VIVA M MMM MMMM MMMM MMM MMMM Mmmm mmm mM mM Micvicnieevicvicnieeviyecvniwevieevieviwevwevyeevwecvyevyecvweeviec veri ry 


AAA AA AAAI IMPINININIPONINID 9 9 9 OO SM QOOOOOCOOSOOSOOOOOOOOOOdcccDcDCDCDCD 


DNASE AN $$ O OD NOAU EWN $$ O OD NAME WIN 9 OCONIAUNE WIN  O ODNAUE WIN 0 OONAUS WP 


PDEA AAAAA AA AA AAAA AAA AAAA A AAA AA AAA AA AAOAO 


MMGSINSPFNH: : INSERT PFN AT HEAD OF LIST 
0000" oF 9 83 Mat TNSPENREE™ REF CNTCRO) SORANCH IF fo coer MUST BE ZERO 
0000'DF40 =—03 4 3 F INSV #PFNSV LOC #PENSS_LOC,@W*PFNSAB_ State ROD; SET LOCATION 
51 *CF4 ? MOVL USPENSAL ReadeR2), R1~ at =PFN OF ~ 
BEQL 10$ KIP NEXT IF ust PREVIOUSLY EMPTY 
PFN_REFERENCE 
MOVW <RO > aW*PFNSAx aL Inccatd>, - sBLINK(OLD) = NEW 


CONG _“OPCODE=MOVL ,- 


6 15 
ALLOCPEN = PFN LIST MANIPULATING ROUTINES 15-SEP-1984 23:49: AX/VMS Macro V04-00 P 15 
vos e500 INSPFN = INSERT PFN AT HEAD OR TAIL OF P 5-SEP=1 1382 83:49:86 Yeys. SRCJALLOCPFN.MAR; 1 age 10) 
1 9 IMAG =SYS$_NONPAGED 
0000'CF42 50 00 i 10$: MOVL ROW uFPr eA, HEAD [R2]__; HEAD = NEW 
! r CLRW CaurPF bax MBL INKTROD>, - ;BLINK (NEW) =0 
ets InAcessts “NONPAGED 
1 978 MOVW yt aW*“PFNSAx FLINKCROJ>,= sFLINK (NEW) =0LD 
1 64 ONG_OPCODE=MOVL 
1 648 TRACESSYs  NONPAGED 
1 i 1 64 BNEQ QT PTY ;BRANCH IF LIST WAS NOT EMPTY 
oooc'crF42 50 00 01 : : MOVL WePENSAL. TAILCR2] LIST NOW HAS JUST ONE ENT 
. 3 6) BRB tt : INFORM OTHERS, LIST NO NO’ LONGER EMPTY 
638 ; PFN REFERENCE COUNT NON-ZERO 
1 655 INSPFNREF : 
636 BUG_CHECK PFNREFNZRO,FATAL ;PFN REFERENCE COUNT NONZERO 
1 638 MMGSDALLOCPEN: : 
1 65 ASSUME PFNSC_FREPAGLST EQ 0 
52. D4 (01 660 CLRL sR ;FREE PAGE LIST ID 
1 661 MMGSINSPENT:: SINSERT PFN AT TAIL OF LIST 
0000'DF40 BS (01 66¢ TSTW  @W*PFNSAW_REFCNTCRO] § :MAKE SURE REFERENCE COUNT IS ZERO 
F 1 1 66 BNEQ Iw NSPF NREF™ BRAN cH IF IT IS NOT, ERROR 
0000'DF40 03 «00 «52° «FO 01 664 INSV #PFNSV_LOC.#PFNSS_LOC. ,aW*PFNSAB_STATECRO] ;SET LO CATION 
51 O00C'CFS D0 1 665 MOVL USBFNEAL _TAILER2],R1~ = :R1=PFN OF “LAST ENTRY ON LIST 
06 | 1 66 BEQL {SKIP NEXT iF LIST PREVIOUSLY EMPTY 
1 sre _REFERENCE 
1 668 MOVW <ROTaW*PFNSAx_FLINKCR1]>,- 7 FLINK (OLD) =NEW 
669 LONé OPcoD =MOVL 


AGE=SY NONPAGED 
OOOC'CF42 50 00 20$:  MOVL RO. U"PENSAL TAILER2] = ;NEW ENTRY IS THE NEW TAIL 


E 
CLRW <a" PFNSAx EE KCROI> © NEW ENTRY FLINK IS 0 


NCE 
MOV ~au*PFNSAx_BLINKCROJ>,- yNEW ENTRY BLINK IS OLD TAIL 
CONG OPCODE=MOVL 
18 SYS _NONPAGED 


BNEQ yA BRANCH IF LIST WAS NOT EMP 
MOVL R IW-PFNSAL_HEADER2] sLIST WAS EMPTY, NEW NENTRY Is HEAD AND TAIL 


1 
g 
4 
5 
5 
she 
0000'CF42 50 06 Le 
$ ; THIS LIST JUST WENT FROM EMPTY TO ONE ENTRY. 
5 
§ 
3 
: 
4 
4 
5 


: 
WASEMPTY: 
0018'CF42 01 00 nOVL ra -W*PENSAL_ COUNTCR2] ;RESET THE LIST COUNTER 
05 
08 0018°CF42 0028'CF42 F2 


R 

4 WAKFREPAGWAITO- FREE PAGE LIST WAS EMPTY 
RSB 

NOTEMPTY: 

AOBLSS W*PFNSAL_HILIMITCR2),W*PFNSAL_COUNTCR2),20$ 


; THIS LIST IS ABOVE ITS THRESHOLD SIZE, INFORM THE INTERESTED PARTY 


ROD 2 QOOOOO MMH MMMM HHHMMMOVOVVTVCVTVVC CVG IAMAAANAAAOFOOOCOWW 
OOM MH HEM COCDOOPIPININIIIO BD H&L FHM HM OWI DW OOD PP POOOAA SMO OOO | MUN 
o 
o 


POPP IPOPOPOPOPIPOPONOPOPOPOPONINININYD 2 


sii" 


- PFN LIST very Me ees LATING ROUTINES — 1 ~$60= 1386 $3:93: 36 nee Macro V04-00 Page (lg | 


NEED TO START WRITING MODIFIED PAGES 


WAKE_MPW: 
BBC S*#SCHSV_MPW,W*SCHSGB_ SIP. WAK 


WRIT 
MOVB #1, W*SCHSGL_MFYLIM+3 :D1s 


06 0000'CF 00° €1 
OO2F°CF 01 90 


ESWAPPER ;BRANCH IF MODIFIED PAGE 
ER a er uatenee st ACTIV 
ABLE THE THRESHOLD CHECK WHILE 
MODIFIED PAGE WRITER IS ACTIVE 


INSPFN = INSERT AT HEAD OR TAIL OF P 5=SEP=1 SYS.SRCJALLOCPFN.MAR; 1 V 
38 CASE —-R2, <= 
98 WAKESWAPPER, ~ sFREE PAGE LIST 
3 9 WAKE_MPW- [MODIFIED PAGE LIST 
1 9 208: 
05 ? j RSB 
rE 
705 FREE PAGE LIST JUST WENT FROM EMPTY TO ONE PAGE. MUST REPORT 
7 $3 ; THE “FREE PAGE AVAILABLE’ EVENT FOR ALL PROCESSES WAITING. 
: GAKFREPAGWAITQ: 
11 BB PUSHR #*M< s$AVE THE REGISTERS TO BE RETURNED 
52 02 ~«~»0 4 10 on #PRiS. i R2 7 RESOURCE AVAILABLE’ PRIORITY INC 
0008" CF 85 f a ; Ist W“SCHSGQ_FPGWO+WOHSW -WOCNT ANYONE WAITING? 
0000'CF 01° 88 a BISB $*#<1@SCHSV_REORD>, w*scuéca BLRESCAN. MET FLAG FOR OSWPSCHED 
54 O000°CF OD ; 715 MOVL weSCHSGa_ FPGWO,R4 
rig RPTEVT iS PORT FREE PAGE AVAILABLE"’ 
EA 11 Se a BRB tt 
11 BA D 18 20$ POPR #*M<RO,R4> ;RESTORE REGISTERS 
5 F 71 RSB 
st 
724 
f 5 
; i 
ace 
ee 
oe 0 
ee 
3 : 
c 9 
F 734 


MAUI MI UIUTUTUI UTILS BS 


WANA Pononononononononony 


05 RSB 
; INFORM THE SWAPPER PROCESS THAT SOMETHING OF INTEREST HAS OCCURRED 
WAKESWAPPER: 
FDA1" 30 tt SCHSSWPWAKE WAKE UP THE SWAPPER PROCESS 


sii 
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Se Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se See Se Se SseSsteSseteSseGs 
+ 


-SBTTL ALLOCONTIG = Allocate N Physically Contiguous Pages 
FUNCTIONAL DESCRIPTION: 
pcan cough ENS'PFR Gbee base Cooking for ree pagees “Pages cannot 
be deallocat 
CALLING SEQUENCE: 

BSBW = MMGSALLOCONTIG 
INPUT PARAMETERS: 


IPL must be at SYNCH sat 
R1 = number of pages that must be physically contiguous (range size) 


IMPLICIT INPUTS: 

None. 
OUTPUT PARAMETERS: 

RO = First PFN in range if found or negative if no range found 
IMPLICIT OUTPUTS: 


MMGSDELCONPFN is called for each PFN in range, if found. 
R2 contents destroyed. 


COMPLETION CODES, SIDE EFFECTS: 
None. 


WAGSALLOCONTIG: : 


ee 
wn 
ow 
ae 


; pap omy 

y 10S: i378 Sy, PF MBAR _STATECROD : 13 ghis PFN free? 
; 
a 


z 


PUSHR #*M<R1,R3,R4> save werk registers: 
ré = loca xpfn 
r3 = PFN index for trial range 
r4 = bgces saxpfn for trial range 

ndex for main t 


CLAL oop 
calculate kecet maxpfn - stop search 


SUBL3 RY, G*MNGSGL_MAXPEN, R2 


BEQL 
AOBLEG R2,RO,108 


GL 
POPR #*A<R1.R3,R4> 
RSB 


one free PFN, now look if there 


indicate telture 

restore work registers 

re N consecutive free PFNs 

ROVL ROR Brenly: trial . orr 

° s¢ 

ADOLS BSR RG 3 roe if PPNS from tesa to (r4) 
R : ofr tree, r4 = oop Limit 
40% 5 nto middle of next loop 


i 


* 
; skip 


vot=500" 


hysica 


Setete 


; N physically-con 
97 $0 
vedic : TSTs Py PFMSAR_STATECASS 
%. BNEQ $ 
A0S: PFN aside? +9 | = 
TsT@ <au*PFNSAx PL IMKERSI>. © 


ONG_OPCODE ~ 

MAGESSYS. NONPAGED 
BEQL 

LEQ 


83,308 


EE 53 8 


7E 5 MOVL  RO,=(SP) 
0006 0r9 $08: STW Oy °PFNSAW_REFCNTCROJ 
1 BNEQ $ 
BSBW MMGSDELCONPFN 
CLRL OR 


BSBW MMGSREMPFN 
AOBLEQ R4,R0,508 
MOVL ( 


+R 
POPR #*mcR1,R3.R4> 
RSB 


> Search through trial range failed. N 


é0s: mOVL R3,RO 


70$: BUG_CHECK FREEPAGREF ,FATAL 


E 
A 


ED 28 " 


J 15 | 
Allocate N Physically Conti 'S-SeP-i96e 65:30:53 EersvsacaLLochrncman:1 = "8" cf, 


his | Looks scans the N pages from the first f PFN. If all N 
tes we've found Oe clones pages. ens wth se 


no, get out of this loop 


; $can nenge 

3 ts this PFN free? 

3 WEQ 

3 make sure Link nonzero 


$ LEStostioGth PUEs! tte low 


Fell through AOBLEQ, means all N pages were free. Now, DELCONPFN each page. 


save beginning of ange 


consistency 

bug if free page has non-zero refcnt 
ge ate PFN con th 

ndicate urge t to REMPFN 

remove PFN from free Li 


List 
delconpfn N pages, tinit still good 
restore beginn ng of range 
restore work registers 


consecutive pages were not free. 
: reset main index 
3 and tole He og Bn 


free page refcrence count nonzero 


ALLOCPFN 
Symbol table 


ee PFN 
BUGS_DELCONPFN 
BUGS _F REEPAGREF 
BUGS_PAGNTRNVAL 
BUGS_PFNLISTCNT 
BUGS _PFNREFNZRO 


MMGSREMPF NH 
MMGSRLPFNSAVPTE 
NOTEMPTY 


OP$_MOVZWL 
OP$_TSTL 
ops 


PFNSAL_LOLIMIT 
PFNSAL MF YLSTHD 
PFNSAL PT 
PFNSAL~TAIL 


cT 
“BADPAGLST 
PFNSC_FREPAGLST 

FNSC_GBLWRT 


PFNSC” SYSTEM 
PFNSGC_PHYPGCNT 
PFNSM_BADPAG 
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00000018 R 
S444 : RG 
0000028 RG 
00000054 RG 
00000004 RG 
teereree 
0000000C R 
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eeeeeene 
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cc 
a 
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WAKE _MPW 
WAKFREPAGWAITQ 
WASEMPTY 
WOHSW_WOCNT 
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ALLOCPFN - PFN LIST MANIPULATING ROUTINES 15-SEP-1 
Psect synopsis “3-1 $8e 83: $3: 33 
SOBER ma sews + 
! Psect synopsis ; 

PSECT _hame Allocation PSECT No. Attributes 
> ABS . 000 8 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCLN 
SABSS 000 ( -) O1¢ 1.) NOPIC USR CON ABS LCL N 
$$$210 0000048 ( 72.) ¢ ( ¢°} NOPIC SR CON REL LCL WN 

O0O0O02BF ( 703.) ( -) NOPIC USR CON REL LCLN 
ZSINITSPFN_F IXUP_TABLE QOOO004E 78.) 4( 4.) NOPIC USR CON REL LCL N 

$¢ eee aeweeacces woe ane aoanaeae + 
: Performance indicators H 

Phase Page faults CPU Time Elapsed Time 
Initialization 41 8:90: 00.03 00:00:02.03. 
Command processing 145 0:00:00. § 88:83 4.60 
Pass 1 238 8 00:6079 0:00:21.96 
symees table sort 0 0:00:00. 78 00:00: 6-2 

151 0:00:02.10 00:00:07.14 
Symbol table output 13 00:00:00.09 00:00:00.34 
Psect synopsis output 2 Ses ST 00:00:00.34 
Cross-reference output 0 00:00:00.00 OF a ea “Oe 
Assembler run totals 592 00:00:10.19 00:00:39.28 


The working set Limit was 1350 pages. 

38901 bytes (76 pages) of virtual memory were used to buffer the intermediate cod 

There were 30 pages of symbol table ,2eace allocated to hold 543 non-local and 42 focal symbols. 
828 source Lines were read in Pass 1, producing ge object records in Pass 2. 

19 pages of virtual memory were used to define 17 macros. 


+ 
; Macro library statistics ; 


Macros defined 


Macro Library name 


~ $52 3SDUACE: SYS.OBJJLIB.MLB;1 S 
“$255SDUA28: SYSLIBISTARLET. MLB; 2 5 
TOTALS (all Libraries) 14 


623 GETS were required to define 14 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:ALLOCPFN/OBJ=O0BJ$:ALLOCPFN MSRC$:ALLOCPFN/UPDATE=(ENH$:ALLOCPFN) +EXECMLS$/LIB 
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FN.MAR;1 (11) 


NOWRT NOVEC BYTE 


WRT NOVEC BYTE 
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